Partial Class DNNTabStrip
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

	End Sub

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

	Private ReadOnly Property RenderMode() As DotNetNuke.UI.WebControls.DNNTabStrip.eTabRenderMode
		Get
			Select Case Request.QueryString("trm")
				Case "1"
                    Return DotNetNuke.UI.WebControls.DNNTabStrip.eTabRenderMode.PostBack
				Case "2"
                    Return DotNetNuke.UI.WebControls.DNNTabStrip.eTabRenderMode.CallBack
				Case Else
                    Return DotNetNuke.UI.WebControls.DNNTabStrip.eTabRenderMode.All
			End Select
		End Get
	End Property

	Protected Overrides Sub OnInit(ByVal e As System.EventArgs)
		MyBase.OnInit(e)
		DotNetNuke.UI.Utilities.ClientAPI.HandleClientAPICallbackEvent(Me)
	End Sub

	Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		'Put user code to initialize the page here
        Me.MyDNNTabStrip.ForceDownLevel = chkForceDownLevel.Checked
		Me.MyDNNTabStrip.TabRenderMode = Me.RenderMode
		Me.ddlTabRenderMode.SelectedIndex = CInt(Me.RenderMode)
		If Me.IsPostBack Then
			Me.txtStatus.Value = "Postback occurred: " & Now.ToString & vbCrLf & Me.txtStatus.Value

			Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder
			sb.Append("SelectedIndex: " & Me.MyDNNTabStrip.SelectedIndex & "<br>")
			lblEventDetails.Text = sb.ToString
		End If
	End Sub

	Private Sub ddlTabRenderMode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ddlTabRenderMode.SelectedIndexChanged
        Response.Redirect("DNNTabStrip.aspx?trm=" & Request(ddlTabRenderMode.UniqueID))
	End Sub

	Private Sub btnPostBack_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPostBack.ServerClick

	End Sub
End Class
